home *** CD-ROM | disk | FTP | other *** search
/ VisualFX for ImageFX / VisualFX for Image FX 2 - Disc 2.iso / setup / 03 / 01.rexx
Encoding:
OS/2 REXX Batch file  |  1997-08-22  |  3.1 KB  |  113 lines
  1. /*
  2.                                  Visual FX
  3.                                     For
  4.                                  Image FX
  5.                                SetUp Script
  6.                            Written By J.L. White
  7.  
  8.                          (C)1997 Merlin's Software
  9.  
  10. */
  11. parse arg Num Frames
  12. options results
  13. address "IMAGEFX.1"
  14.     RequestResponse "Do You Need Instructions?"
  15.     if rc = 0 then do
  16.         call Docs()
  17.         end    
  18.     ReDraw On
  19.     Gadget.1 = ' Select Background Type! '
  20.     Gadget.2 = ' Use Seamless Image '
  21.     Gadget.3 = ' Use Texture & Color '
  22.     ListRequest 3 Gadget
  23.     BackType = 0
  24.     if result = 2 then BackType = 0
  25.     if result = 3 then BackType = 1
  26.  
  27.  
  28.     if BackType = 0 then do
  29.         LoadBuffer "VFXIFXCD:Images/Pics/Seamless.Pic" Force
  30.         RequestNotify "Look At Examples For FileName Then Click OK"
  31.         RequestFile '"Select File To Use For Background!" "VFXIFXCD:Images/Seamless" ""'
  32.         BrushName = result
  33.         Color = 1
  34.         end
  35.  
  36.     if BackType = 1 then do
  37.         LoadBuffer "VFXIFXCD:Images/Pics/Textures.Pic" Force
  38.         RequestNotify "Look At Examples For FileName Then Click OK"
  39.         RequestFile '"Select File To Use For Background!" "VFXIFXCD:Images/Textures" ""'
  40.         BrushName = result
  41.         ActiveColor 2
  42.         RequestNotify "Click On Color To Use For Highlights Then Click OK"
  43.         ActiveColor
  44.         Color = result
  45.         ActiveColor 1
  46.         end
  47.  
  48.  
  49.  
  50.     Height = 480
  51.     Width = 640
  52.     if exists("libs:flyer.library") then do
  53.         Height = 480
  54.         Width = 752
  55.         end
  56.     
  57.     text1 = '"Move X"'
  58.     text2 = '"Move Y"'
  59.     Gadget.1  = 'SLIDER LE=70 TE=4 WD=150 HT=14 LB='text1' IN=1 LO=-10 HI=10 LV=%-3ld'
  60.     Gadget.2  = 'SLIDER LE=70 TE=22 WD=150 HT=14 LB='text2' IN=1 LO=-10 HI=10 LV=%-3ld'
  61.     Gadget.3 = 'INTEGER 60  40 50 14 "Width:"' Width
  62.     Gadget.4 = 'INTEGER 200  40 50 14 "Height:"' Height
  63.     Gadget.5 = 'END'
  64.     NewComplexRequest  '"Select X & Y Movements & Screen Size!"' Gadget 270 60
  65.     if rc ~= 0 then do
  66.         XOff = 0
  67.         YOff = 0
  68.         end
  69.     else do
  70.         XOff = RESULT.1
  71.         YOff = RESULT.2
  72.         Width = RESULT.3
  73.         Height = RESULT.4
  74.         end
  75. RequestNumber '"Enter Number Of Frames To Process!"' Frames
  76. End = result
  77.  
  78. call open TempFile,"RAM:"strip(Num),W
  79. call writeln TempFile,BrushName
  80. call writeln TempFile,Color
  81. call writeln TempFile,BackType
  82. call writeln TempFile,Width
  83. call writeln TempFile,Height
  84. call writeln TempFile,XOff
  85. call writeln TempFile,YOff
  86. call writeln TempFile,End
  87. call close TempFile
  88. exit
  89.  
  90.  
  91.  
  92. Docs:
  93.  
  94.     text1 = '"This effect takes a seamless image and scrolls it on"'
  95.     text2 = '"the X & Y axis (larger = faster). We supply some but"'
  96.     text3 = '"use any image that you wish as long as it is seamless."'
  97.     text4 = '"The program will fill the screen and move it in the"'
  98.     text5 = '"selected direction for you. Just tell it how long you"'
  99.     text6 = '"want it to scroll (how many frames). This is perfect"'
  100.     text7 = '"for use with CG and scroll pages."'
  101.  
  102.     Gadget.1  = 'TEXT LE=10 TE=4 LB='text1' '
  103.     Gadget.2  = 'TEXT LE=10 TE=14 LB='text2' '
  104.     Gadget.3  = 'TEXT LE=10 TE=24 LB='text3' '
  105.     Gadget.4  = 'TEXT LE=10 TE=34 LB='text4' '
  106.     Gadget.5  = 'TEXT LE=10 TE=44 LB='text5' '
  107.     Gadget.6  = 'TEXT LE=10 TE=54 LB='text6' '
  108.     Gadget.7  = 'TEXT LE=10 TE=64 LB='text7' '
  109.     Gadget.8 = 'END'
  110.     NewComplexRequest  '"Instructions For Effect #01"' Gadget 400 76
  111.  
  112. return
  113.